home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
win_u_z
/
wedl203.zip
/
WEDLE.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1992-07-30
|
13KB
|
326 lines
{-----------------------------------------------------------------------------}
{ }
{ WEDL(tm) - Windows Enhanced Dialog Library }
{ Copyright (c) 1991-1992, Nemisoft, Inc. }
{ All Rights Reserved }
{ Module: WEDLE.PAS }
{ }
{-----------------------------------------------------------------------------}
unit WEDL;
interface
uses WinTypes;
const
FMF_NONE : LongInt = 0;
FMF_OVERTYPE : LongInt = 1;
FMF_UPDATE : LongInt = 2;
FMF_VKEYPRES : LongInt = 4;
FMF_VLEAVFLD : LongInt = 8;
FMF_NOSELECT : LongInt = 16;
FMF_COMPAT : LongInt = 32;
FDF_NONE : LongInt = 0;
FDF_COMPLETE : LongInt = 1;
FDF_NOTBLANK : LongInt = 2;
FDF_NOTZERO : LongInt = 4;
FDF_NOTEDIT : LongInt = 8;
FDF_MUSTEDIT : LongInt = 16;
FDF_UPDATE : LongInt = 32;
FDF_NOSELECT : LongInt = 64;
FDF_SPCFILL : LongInt = 128;
FDF_ZEROFILL : LongInt = 256;
FDF_BLNKZERO : LongInt = 512;
FDF_BLNKNEZ : LongInt = 1024;
FDF_PHYSICAL : LongInt = 2048;
FDF_UPPER : LongInt = 4096;
FDF_LOWER : LongInt = 8192;
FDF_PROPER : LongInt = 16384;
FDF_NUMERIC : LongInt = 32768;
FDF_CALCNUM : LongInt = 65536;
FDF_VKEYPRES : LongInt = 131072;
FDF_VLEAVFLD : LongInt = 262144;
FDF_COMBO : LongInt = 524288;
ELC_BLANK : LongInt = 1;
ELC_ZERO : LongInt = 2;
ELC_EDITED : LongInt = 3;
ELC_CHECKED : LongInt = 4;
FDT_NULL = 0;
FDT_STRING = 1;
FDT_SHORT = 2;
FDT_USHORT = 3;
FDT_INTEGER = 4;
FDT_UNSIGNED = 5;
FDT_LONG = 6;
FDT_ULONG = 7;
FDT_FLOAT = 8;
FDT_DOUBLE = 9;
BTF_NONE : LongInt = 0;
BTF_CHECKED : LongInt = 1;
BTF_GRAYED : LongInt = 2;
BTF_UPDATE : LongInt = 4;
BTF_GENERIC : LongInt = 8;
BTF_IDOK : LongInt = 16;
BTF_IDCANCEL : LongInt = 32;
KSM_INSERT = 0;
KSM_CAPSLOCK = 1;
KSM_NUMLOCK = 2;
ERV_BLANK = 27701;
ERV_INCOMPL = 27702;
ERV_INVCHAR = 27703;
ERV_NOTEDIT = 27704;
ERV_UNEDITED = 27705;
ERV_ZERO = 27706;
ERE_KEYPRESS = 1;
ERE_LEAVEFLD = 2;
ERE_SELECTOK = 3;
type
HFORM = THandle;
HFIELD = THandle;
HBUTTON = THandle;
PVALFUNC = TFarProc;
PERRFUNC = TFarProc;
FIELD = record
features : LongInt;
help_context : LongInt;
picture_string : PStr;
pdata : LPVoid;
pvalid_func : PVALFUNC;
hcombo : HWnd;
hwnd : HWnd;
hfield : HFIELD;
hnext_field : HFIELD;
ctrl_id : Integer;
data_type : Integer;
decimal_position : Integer;
error_value : Integer;
logical_size : Integer;
physical_size : Integer;
has_changed : Bool;
end;
PFIELD = ^FIELD;
LPFIELD = PFIELD;
FIELD_POS = record
ppicture_str_pos : PStr;
selection : LongInt;
logical_position : Integer;
physical_position : Integer;
val_char_occ : Integer;
to_right_of_dec : Bool;
validation_char : Char;
end;
PFIELD_POS = ^FIELD_POS;
LPFIELD_POS = PFIELD_POS;
FORM = record
features : LongInt;
perror_func : PERRFUNC;
pdialog_proc : TFarProc;
help_context : LongInt;
capslock_offmsg : PStr;
capslock_onmsg : PStr;
help_file_name : PStr;
insert_offmsg : PStr;
insert_onmsg : PStr;
numlock_offmsg : PStr;
numlock_onmsg : PStr;
undo_selection : LongInt;
hhead_elink : THandle;
hproc_array : THandle;
hundo_buffer1 : THandle;
hundo_buffer2 : THandle;
hdlg : HWnd;
hform : HFORM;
hnext_form : HFORM;
hcurr_field : HFIELD;
herror_field : HFIELD;
hhead_field : HFIELD;
hhead_button : HBUTTON;
cancel_id : Integer;
capslock_id : Integer;
error_event : Integer;
error_position : Integer;
error_value : Integer;
insert_id : Integer;
numlock_id : Integer;
num_controls : Integer;
ok_id : Integer;
undo_level : Integer;
edit_key_pressed : Bool;
help_invoked : Bool;
insert_mode : Bool;
in_error_handler : Bool;
just_passed_dec : Bool;
pressed_cancel : Bool;
end;
PFORM = ^FORM;
LPFORM = PFORM;
BUTTON = record
features : LongInt;
help_context : LongInt;
pdata : PInteger;
hwnd : HWnd;
hbutton : HBUTTON;
hnext_button : HBUTTON;
ctrl_id : Integer;
group_id : Integer;
off_value : Integer;
on_value : Integer;
has_changed : Bool;
end;
PBUTTON = ^BUTTON;
LPBUTTON = PBUTTON;
function button_define( form: HFORM; ctrl_id: Integer; pdata: PInteger;
group_id, on_value, off_value: Integer;
features, help_context: LongInt ): HBUTTON;
function button_get_check( button: HBUTTON ): Integer;
function button_get_from_ctrl_id( form: HFORM; ctrl_id: Integer ): HBUTTON;
function button_get_from_group( form: HFORM; group_id: Integer): HBUTTON;
function button_get_from_hwnd( form: HFORM; Wnd: HWnd ): HBUTTON;
function button_get_hwnd( button: HBUTTON ): HWnd;
function button_has_changed( button: HBUTTON ): Bool;
function button_lock( button: HBUTTON ): LPBUTTON;
function button_set_check( button: HBUTTON; state: Integer ): Integer;
procedure button_unlock( button: HBUTTON );
function char_is_printable( ch: Integer ): Bool;
function char_to_lower( ch: Integer ): Integer;
function char_to_upper( ch: Integer ): Integer;
function field_data_to_log( field: HFIELD; pbuf: PStr; pdata: LPVoid;
data_type: Integer ): Integer;
function field_define( form: HFORM; ctrl_id: Integer; pdata: LPVoid;
data_type: Integer; picture_string: PStr;
features: LongInt; pvalid_func: PVALFUNC;
error_value: Integer; help_context: LongInt ): HFIELD;
function field_get_character( field: HFIELD; position: Integer;
physical: Bool ): Integer;
function field_get_from_ctrl_id( form: HFORM; ctrl_id: Integer ): HFIELD;
function field_get_from_hwnd( form: HFORM; Wnd: HWnd ): HFIELD;
function field_get_hwnd( field: HFIELD ): HWND;
function field_get_pos_info( field: HFIELD; logical_position: Integer;
pfpos: LPFIELD_POS ): Integer;
function field_get_position( field: HFIELD; pfpos: LPFIELD_POS ): Integer;
function field_get_text( field: HFIELD; pbuf: PStr; physical: Bool ): Integer;
function field_has_changed( field: HFIELD ): Bool;
function field_lock( field: HFIELD ): LPFIELD;
function field_log_to_data( field: HFIELD; pbuf: PStr; pdata: LPVoid;
data_type: Integer ): Integer;
function field_log_to_phys( field: HFIELD; pbuf: PStr ): Integer;
function field_phys_to_log( field: HFIELD; pbuf: PStr ): Integer;
function field_set_text( field: HFIELD; pbuf: PStr; physical: Bool ): Integer;
procedure field_unlock( field: HFIELD );
function form_begin( hDlg: HWnd; features: LongInt; perror_func: PERRFUNC ): HFORM;
function form_cancel( form: HFORM ): Integer;
function form_end( form: HFORM ): Integer;
function form_exists( form: HFORM ): Bool;
function form_get_from_hdlg( hDlg: HWnd ): HFORM;
function form_get_hdlg( form: HFORM ): HWnd;
function form_has_changed( form: HFORM ): Bool;
function form_in_error_cond( form: HFORM ): Bool;
function form_is_cancelled( form: HFORM ): Bool;
function form_load( form: HFORM ): Integer;
function form_lock( form: HFORM ): LPFORM;
function form_ok( form: HFORM ): Integer;
function form_save( form: HFORM ): Integer;
function form_set_enable_link( form: HFORM; hcontrol: THandle;
condition: LongInt; ctrl_id: Integer;
enable: Bool ) : Integer;
function form_set_help( form: HFORM; help_file_name: PStr;
help_context: LongInt ): Integer;
procedure form_unlock( form: HFORM );
function form_validate( form: HFORM ): HFIELD;
function generic_define( form: HFORM; ctrl_id: Integer;
help_context: LongInt ): THandle;
function keystat_define( form: HFORM; ctrl_id, which: Integer;
onmsg, offmsg: PStr ): Integer;
function str_delete_char( str: PStr; ch: Integer ): Integer;
procedure str_insert_char( str: PStr; ch, offs: Integer );
function str_is_blank( str: PStr ): Bool;
function str_is_value_zero( str: PStr ): Bool;
procedure str_trim_spaces( str: PStr );
implementation
function button_define; external 'WEDL2E' index 7;
function button_get_check; external 'WEDL2E' index 8;
function button_get_from_ctrl_id; external 'WEDL2E' index 9;
function button_get_from_group; external 'WEDL2E' index 10;
function button_get_from_hwnd; external 'WEDL2E' index 11;
function button_get_hwnd; external 'WEDL2E' index 12;
function button_has_changed; external 'WEDL2E' index 13;
function button_lock; external 'WEDL2E' index 14;
function button_set_check; external 'WEDL2E' index 15;
procedure button_unlock; external 'WEDL2E' index 16;
function char_is_printable; external 'WEDL2E' index 17;
function char_to_lower; external 'WEDL2E' index 18;
function char_to_upper; external 'WEDL2E' index 19;
function field_data_to_log; external 'WEDL2E' index 20;
function field_define; external 'WEDL2E' index 21;
function field_get_character; external 'WEDL2E' index 22;
function field_get_from_ctrl_id; external 'WEDL2E' index 23;
function field_get_from_hwnd; external 'WEDL2E' index 24;
function field_get_hwnd; external 'WEDL2E' index 25;
function field_get_pos_info; external 'WEDL2E' index 26;
function field_get_position; external 'WEDL2E' index 27;
function field_get_text; external 'WEDL2E' index 28;
function field_has_changed; external 'WEDL2E' index 29;
function field_lock; external 'WEDL2E' index 30;
function field_log_to_data; external 'WEDL2E' index 31;
function field_log_to_phys; external 'WEDL2E' index 32;
function field_phys_to_log; external 'WEDL2E' index 33;
function field_set_text; external 'WEDL2E' index 34;
procedure field_unlock; external 'WEDL2E' index 35;
function form_begin; external 'WEDL2E' index 36;
function form_cancel; external 'WEDL2E' index 37;
function form_end; external 'WEDL2E' index 38;
function form_exists; external 'WEDL2E' index 39;
function form_get_from_hdlg; external 'WEDL2E' index 40;
function form_get_hdlg; external 'WEDL2E' index 41;
function form_has_changed; external 'WEDL2E' index 42;
function form_in_error_cond; external 'WEDL2E' index 43;
function form_is_cancelled; external 'WEDL2E' index 44;
function form_load; external 'WEDL2E' index 45;
function form_lock; external 'WEDL2E' index 46;
function form_ok; external 'WEDL2E' index 47;
function form_save; external 'WEDL2E' index 48;
function form_set_enable_link; external 'WEDL2E' index 49;
function form_set_help; external 'WEDL2E' index 50;
procedure form_unlock; external 'WEDL2E' index 51;
function form_validate; external 'WEDL2E' index 52;
function generic_define; external 'WEDL2E' index 53;
function keystat_define; external 'WEDL2E' index 54;
function str_delete_char; external 'WEDL2E' index 55;
procedure str_insert_char; external 'WEDL2E' index 56;
function str_is_blank; external 'WEDL2E' index 57;
function str_is_value_zero; external 'WEDL2E' index 58;
procedure str_trim_spaces; external 'WEDL2E' index 59;
end.